home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / demo / kushida / 68.bas next >
BASIC Source File  |  1995-02-09  |  7KB  |  143 lines

  1. 10 PLAY OFF
  2. 20 LOAD@ "ED02.FMB" : LOAD@ "ED06.PMB"
  3. 30 CLS 1:COLOR 5:PRINT "JAZZY FOR VOYAGER":PRINT "written TAKAO KUSHIDA"
  4. 40 S$="%CQ8T130" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
  5. 50 '
  6. 60 '
  7. 70 '
  8. 80 AL$="@39V6O4L16U100Q4%R5" : AR$=AL$+"U-50%L5"
  9. 90 A1L$=AL$+"RRAR! RARR AR>E<RRRRR  ARRA R!RAR @44<A R>AR @39<AR>AR Q8"
  10. 100 A1R$=AR$+"RRAR! RARR AR>E<RRRRR  ERRE R!RER @44<A R>AR @39<ER>ER Q8"
  11. 110 A1E$=AL$+"RRAR! RARR AR>A<RR!RAR ARR!A RRAR  @44<A RE@45E G>G<G8 Q8"
  12. 120 A1F$=AR$+"RRAR! RARR AR>A<RR!RAR ERR!E RRER  @44<A RE@45E G>G<G8 Q8"
  13. 130 A1G$=AL$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
  14. 140 A1H$=AR$+"RRAR! RARR @58AR@39AR @59<ARRA RRA@39RRARRER@6[[AG]]@59EQ8"
  15. 150 A2L$=AL$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
  16. 160 A2R$=AR$+" <RARR>DRR<D> RRRRRRE<G ARF#RRGRR >CRRCR<F#>CR Q8"
  17. 170 A2E$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>ER<E8[)3"
  18. 180 A2F$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>ER<E8[)3"
  19. 190 A2C$=AL$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U100 RRF#8(>GR<G8[)3"
  20. 200 A2D$=AR$+" <RRGR>G<GRR RGGR ]]ARRR[[ [[[[Q8@77U-50 RRF#8(>GR<G8[)3"
  21. 210 A2G$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
  22. 220 A2H$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR RRRGRRR RRRGRRGRR Q8"
  23. 230 A2I$=AL$+"@58U100Q1 RRRRGRRR RRRGRRRR Q8"
  24. 240 A2J$=AR$+"@58U-50Q1 RRRRGRRR RRRGRRRR Q8"
  25. 250 A3L$=AL$+"@44U100Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
  26. 260 A3R$=AR$+"@44U-50Q1<<RRRRRRAR RERR>EGAR >C<RRRRRER RF#RRGRRR Q8"
  27. 270 A3E$=AL$+"@44U100Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
  28. 280 A3F$=AR$+"@44U-50Q1<<ARRBRRAR RERR>EGAR >C<RRC>CCRR RF#RRGRRR Q8"
  29. 290 '
  30. 300 C$="@86V9O3L16Q3"
  31. 310 C11$=C$+" GRRRGRRRGRGRRR  ERRRERERRRERRRER FR Q8" 
  32. 320 C12$=C$+" ERRRERRRERERRR  CRRRCRCRRRCRRRCR DR Q8"
  33. 330 C13$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
  34. 340 C14$=C$+"<ARRRARRRARARRR  GRRRGRGRRRGRRRGR ER Q8"
  35. 350 C15$=C$+" GRRRGRRRGRGRRR  ERRRERERRRERRRER DR Q8" 
  36. 360 C16$=C$+" ERRRERRRERERRR  CRRRCRCRRRCRRRCR<BR Q8"
  37. 370 C17$=C$+" CRRRCRRRCRCRRR <BRRRBRBRRRBRRRBR GR Q8"
  38. 380 C18$=C$+"<ARRRARRRARARRR  GRRRGRGRRRGRRRGR ER Q8"
  39. 390 C21$=C$+" ERRRERRRERERRR  DRRRDRQ8[[D4CRRRBRRR" 
  40. 400 C22$=C$+" CRRRCRRRCRCRRR <BRRRBRQ8[[B4ARRRBRRR"
  41. 410 C23$=C$+"<ARRRARRRARARRR  GRRRGRQ8[[G4GRRRGRRR"
  42. 420 C24$=C$+"<FRRRFRRRFRFRRR  ERRRERQ8[[E4ERRRERRR"
  43. 430 C25$=C$+" ERRRERRRERERRR  ERRRERERRRERRRERFR Q8" 
  44. 440 C26$=C$+" CRRRCRRRCRCRRR  CRRRCRCRRRCRRRCRDR Q8"
  45. 450 C27$=C$+"<ARRRARRRARARRR  BRRRBRBRRRBRRRBRBR Q8"
  46. 460 C28$=C$+"<FRRRFRRRFRFRRR  GRRRGRGRRRGRRRGRGR Q8"
  47. 470 C31$=C$+" [[E"
  48. 480 C32$=C$+" [[C"
  49. 490 C33$=C$+"<[[A"
  50. 500 C34$=C$+"<[[F"
  51. 510 C3L$="(@45V6O2L16Q4U100 RE8G8&GGRRRGR @44U100ARRR)"
  52. 520 C3R$="(@45V6O2L16Q4U-50 RE8G8&GGRRRGR @44U-50ARRR)"
  53. 530 C4L$="@45V6O2L16Q4U100 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
  54. 540 C4R$="@45V6O2L16Q4U-50 A4A8&AAGRG4GR (RF#8)RD GRGRGF#GR Q8"
  55. 550 C4E$="@111V7O3L16Q2U100  ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARAR Q8"
  56. 560 C4F$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE ARRARRAR RAR<A>ARA  Q8"
  57. 570 C4G$="@111V7O3L16Q2U100  ARRARRAR RAR<A>ARAE A Q8"
  58. 580 C4H$="@111V3O3L16Q2U-50R ARRARRAR RAR<A>ARAE A Q8"
  59. 590 E1$ ="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8>DE<G>G<A>A 8<EGR A8>A8"
  60. 600 E1E$="@60V6O3L16 AR<A>ARR>A<A8A<A>AR>A<E8 D8RR R4R2 "
  61. 610 E2$ ="@58V6O3L16Q1 (R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR)Q8%C"
  62. 620 E2E$="@58V6O3L16Q1  R4%R5ARRR RR%C@59<E>%L5@58AR%C@5<C>%R@58AR Q8%C"
  63. 630 B1$= "@10V8O2L16 ARRRE4]D#R[E8F#8GR ARRRE8&EG#]D#R[E8F#8GR"
  64. 640 B1E$="@77V8O1L16Q4 GRG8>G<Q8G8&GF#8>F#<EREA8 CRC#8CG8&GF#8>C<EREF#8"
  65. 650 B1F$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RE8G8A8G8&GF#8&F#G8"
  66. 660 B1G$="@10V8O2L16 R8ERA4G8&GF#8&F#G8 F#RR8R8R8R4 G#RG#R"
  67. 670 '
  68. 680 P1$= "@6 V13O0L24 C4C4  C4C4          CRRRRRCRRRRR  CRRRRRCRRRRR "
  69. 690 S1$= "@6 V13O0L24 C4C4  C4C4          CRRRRRRRRRRR  RRRRRRRRRRRR "
  70. 700 Q1$= "@9 V7 O1L16 CRRCRRCR RRCRRRRC32C32 CRCRRRCR RRCRRRCR"
  71. 710 P2$= "@12V10O4L24 R4C4  R4C4          RRRRRRCRRRRC  RRRRRRC8V4CRC"
  72. 720 Q2$= "@12V10O4L24 R4C4  R4C4          RRRRRRCRRRRR  RRCRRRC8V4CRC"
  73. 730 S2$= "@12V10O4L24 R4C4  R4C4          "
  74. 740 P3$= "@6 V3 O7L24 (RRRRRC)3 R4        RRRRRCRRRRRC  RCRRRCRRRRRR"
  75. 750 S3$= "@6 V3 O7L24 (RRRRRC)3 R4        "
  76. 760 P4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG RRGRRERRRGR>C RRG<GRRCRRGRR"
  77. 770 S4$= "@7 V3 O1L24 RRRG4GR>C RRG<G4GRG "
  78. 780 P5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR  RRBRRBRR RBRRBRBR"
  79. 790 Q5$= "@1 V6 O1L16 RRBRR!BRR BRRRBRBR  RBBRRBRB RBBRBRBR"
  80. 800 P6$= "@8 V3 O5L16 RRCRCRCR  RRCRRCRR  CRRRCRCR  RCR<<G>>RRCR"
  81. 810 BP1$="@1 V7 O5L24 R1 R2RRR%R9CR%L9C %C@8]]<G4"
  82. 820 BP2$="@7 V3 O4L16 <G>GR<C>CR<D>D <G"
  83. 830 SP1$="@11V5 O2L16 %R5C4%L5C4 R2 R2@12O6[[ %L5C4%R5C4"
  84. 840 '
  85. 850 'PLAY C11$,C12$,C13$,C14$ :  END
  86. 860 'PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$ :  END
  87. 870 'PLAY  ,E2$,,,,,P1$,P4$,P6$,SP1$ :END
  88. 880 'GOTO 1290
  89. 890 '
  90. 900 PLAY C11$,C12$,C13$,C14$
  91. 910 PLAY C11$,C12$,C13$,C14$
  92. 920 PLAY C11$,C12$,C13$,C14$
  93. 930 PLAY C15$,C16$,C17$,C18$
  94. 940 PLAY C25$,C26$,C27$,C28$,,,P2$,P3$
  95. 950 PLAY C25$,C26$,C27$,C28$,,,Q2$,P3$
  96. 960 PLAY C21$,C22$,C23$,C24$,,,P2$,P3$,P4$
  97. 970 PLAY C25$,C26$,C27$,C28$,,,S2$,S3$,S4$
  98. 980 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$
  99. 990 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$
  100. 1000 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$
  101. 1010 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,S4$
  102. 1020 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
  103. 1030 PLAY B1$,E1$,C3L$,C3R$,A1E$,A1F$,P1$,Q2$,P3$,P4$
  104. 1040 PLAY B1$,E1$,C3L$,C3R$,A1L$,A1R$,P1$,P2$,P3$,P4$
  105. 1050 PLAY B1$,E1$,C3L$,C3R$,A1G$,A1H$,S1$,S2$,S3$,S4$
  106. 1060 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
  107. 1070 PLAY B1$,E2$,C4E$,C4F$,A3E$,A3F$,P1$,P4$
  108. 1080 PLAY B1$,E2$,C4E$,C4F$,A3L$,A3R$,P1$,P4$
  109. 1090 PLAY B1$,E2$,C4G$,C4H$,A3E$,A3F$,S1$,S4$,BP1$
  110. 1100 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
  111. 1110 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
  112. 1120 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,P2$,P3$,P5$
  113. 1130 PLAY B1E$,E1$,C3L$,C3R$,A2L$,A2R$,Q1$,Q2$,P3$,Q5$
  114. 1140 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
  115. 1150 PLAY B1F$,E1$ ,C4L$,C4R$,A2C$,A2D$,Q1$,Q2$,P3$,Q5$,P6$
  116. 1160 PLAY B1F$,E1$ ,C4L$,C4R$,A2E$,A2F$,Q1$,P2$,P3$,P5$,P6$
  117. 1170 PLAY B1G$,E1E$,C4L$,C4R$,A2C$,A2D$,Q1$,S2$,S3$,Q5$,P6$
  118. 1180 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
  119. 1190 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
  120. 1200 PLAY ,E1$ ,C4E$,C4F$,A2G$,A2H$,P3$,P4$,P6$
  121. 1210 PLAY ,E1$ ,C4G$,C4H$,A2I$,A2J$,S3$,S4$,P6$
  122. 1220 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
  123. 1230 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
  124. 1240 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
  125. 1250 PLAY ,E2$ ,,,A2G$,A2H$,P1$,P4$,P6$
  126. 1260 PLAY ,    ,,,A2G$,A2H$,P1$,   ,   ,P4$,P6$,SP1$
  127. 1270 PLAY ,    ,,,A2G$,A2H$,P1$,   ,   ,P4$,P6$
  128. 1280 PLAY ,    ,,,A2G$,A2H$,P1$,P2$,P3$,P4$,P6$,SP1$
  129. 1290 PLAY ,    ,,,A2I$,A2J$,S1$,S2$,S3$,S4$,   ,BP2$
  130. 1300 '
  131. 1310 PLAY C11$,C12$,C13$,C14$
  132. 1320 PLAY C15$,C16$,C17$,C18$,,,   ,   ,P3$,P4$
  133. 1330 PLAY C21$,C22$,C23$,C24$,,,P1$,P2$,P3$,P4$,P6$
  134. 1340 PLAY C25$,C26$,C27$,C28$,,,S1$,S2$,S3$,S4$,P6$
  135. 1350 PLAY C11$,C12$,C13$,C14$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
  136. 1360 PLAY C15$,C16$,C17$,C18$,A1E$,A1F$,P1$,Q2$,P3$,P4$,P6$
  137. 1370 PLAY C21$,C22$,C23$,C24$,A1L$,A1R$,P1$,P2$,P3$,P4$,P6$
  138. 1380 PLAY C25$,C26$,C27$,C28$,A1G$,A1H$,S1$,S2$,S3$,P4$,P6$
  139. 1390 PLAY C25$,C26$,C27$,C28$,,,P4$,P6$
  140. 1400 PLAY C25$,C26$,C27$,C28$,,,P4$
  141. 1410 PLAY C21$,C22$,C23$,C24$
  142. 1420 PLAY C31$,C32$,C33$,C34$
  143.